home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / PCGTERM1660.ARC / PCGTERM 1660 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  229 lines
  1. 2 REM             PCG TERM   BY EGBELL    
  2. 3 IFOD%=1THENOD%=.:GOTO18
  3. 4 POKE686,37:POKE679,.:POKE685,.:POKE690,.:POKE691,1:POKE692,.:POKE693,.
  4. 6 POKE2062,32:PRINT"[147]"
  5. 8 GOSUB354:D=8:GOSUB352:GOSUB20027:SYS64931:OPEN5,2,.,CHR$(6):POKE665,75
  6. 10 GET#5,A$:SYS49173:POKE56,40:POKE52,40:D=PEEK(2065)
  7. 12 POKE247,0:POKE249,0:POKE248,52:POKE250,53:I$="PH.PAGE 1":GOSUB298
  8. 14 POKE53272,(PEEK(53272)AND240)OR10:SYS49167:BS=255:L=214:GOSUB68
  9. 18 A=53280:POKE56328,.:POKEA,.:POKEA+1,.:PRINT"[147]
  10. 20 [153]"DEF               LOGWAITPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSDEFCOS          LOG
  11. 22 PRINT"[150]         [190] [175][150]    [175][175][175][175][175][175][175][175][175]   [150]  "TAB(37)"[185][185]"
  12. 24 PRINT"[150]               [172][146]       "TAB(27)"  [182]
  13. 26 [153]"  "[163]9)"  USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR   DEF  "[163]37)"RND "
  14. 28 [153]"DEF  "[163]10)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWDEF"[163]27)"RND          *
  15. 30 POKEL,5:PRINT"[146][208][195][199] [212]ERM [214].5[156]  [174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174]
  16. 32 [153]"FOR/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/ PRINTBY EGBELL":B$[178]"CLRDEF  ":C$[178]" DEF WAIT - "
  17. 34 [153]" (LEN) 1988          ATNLL (null)IGHTS (null)ESERVED ":[151]14354,.:[143] CHECK1
  18. 36 [153]"DEFNEWNEWNEWNEWNEW":[153]B$"ATN"C$"(null)PLOAD":[153]B$"PEEK"C$"STR$OWNLOAD
  19. 38 PRINTB$"[195]"C$"[194]LOCK [211]IZE[153]"TAB(24)BS" ":PRINTB$"[196]"C$"[194]AUD "TAB(25)BR$
  20. 40 PRINTB$"[197]"C$"[212]ERMINAL [205]ODE":PRINTB$"[198]"C$"[196][207][211] [207]PS"TAB(24)"[153]"PEEK(2065)
  21. 41 PRINTB$"[199]"C$"[208]HONE [194]OOK
  22. 42 [153]B$"LEFT$"C$"ATNUTODIAL"[163]25)"PRINT1660":[153]B$"RIGHT$"C$"PEEKUFFER (null)PS
  23. 44 PRINTB$"[202]"C$"[200]I-[210]ES [207]PS":PRINTB$"[203]"C$"[198]ILE [207]PS":PRINTB$"[204]"C$;
  24. 46 PRINT"[195]APTURE [197]D":PRINTB$"[205]"C$"[195]LOCK[150]":PRINT"[184][184][184][184][184]"
  25. 48 POKE198,.:GOSUB20021
  26. 49 CH=PEEK(787):ONCHGOTO262,62,90,60,98,252,262,126,56,58,324,54,368,52
  27. 50 GOTO30
  28. 52 GOSUB400:SYS62595:SYS49173:GOTO18
  29. 54 GOSUB20020:GOTO18:CAPTURE EDITOR
  30. 56 GOSUB20019:GOTO18:EDITOR
  31. 58 GOSUB20022:GOTO18:HI RES
  32. 60 GOSUB68:GOTO20
  33. 62 I$="@0:WRITEPROTECT,S,W":A=9:N=.:GOSUB248:POKEL,11:GOSUB316
  34. 64 GOSUB320:IFEGOTO18
  35. 66 GOTO262
  36. 68 POKE691,-(PEEK(691)=.):B3=PEEK(691)
  37. 70 CS=1.02273E6
  38. 72 POKE659,6-2*(B3=1):POKE660,.
  39. 74 BR$="300 ":IFB3THENBR$="1200
  40. 76 S[178][197](BR$)
  41. 78 RC[178]CS[173]S:[141]88:[151]49179,LO:[151]49180,HI:[143] PUNTER SPEED WEDGE
  42. 80 [139]S[178]1200[167]RC[178]CS[173]S[172].966:[141]88
  43. 82 [151]665,LO:[151]666,HI
  44. 84 RC[178]CS[173]S[173]2[171]100:[141]88
  45. 86 [151]661,LO:[151]662,HI:[142]
  46. 88 HI[178][181](RC[173]256):LO[178]RC[171](HI[172]256):[142]
  47. 90 [151]L,12:[153]:[153][163]25)"   CMDCMDCMD";:M[178]3:[141]104:[139]I$[178]""[137]20
  48. 92 BS[178][197](I$):[139]BS[179]40[167]BS[178]40
  49. 94 [139]BS[177]255[167]BS[178]255
  50. 96 [137]20
  51. 98 [153] "LOAD (null)ERMINAL (null)ODE  LISTASC8 VALXIT ":[153]:[141]20005
  52. 100 [153]"CLRTOCMDPRINT";:[141]20015:[137]18
  53. 102 M[178]20
  54. 104 I[178].:I$[178]"
  55. 106 PRINT"[164][157]";
  56. 108 GOSUB244:IFA=.GOTO108
  57. 110 IFA=13THENPRINT" ":RETURN
  58. 112 IFA=20GOTO122
  59. 114 IFA>132ANDA<141THENI$=PH$(A-132):PRINTI$:RETURN
  60. 116 IFLEN(I$)=MGOTO108
  61. 118 IF(AAND127)<32GOTO108
  62. 120 PRINTA$;:I$=I$+A$:GOTO106
  63. 122 IFLEN(I$)=.GOTO108
  64. 124 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO106
  65. 126 NT=.:T0=PEEK(2064):IFT0<>16ANDT0<>20THENGOSUB404
  66. 127 T0=-(PEEK(2064)=20)
  67. 128 GOSUB312:POKEL,9:PRINT:PRINT" [211]ET [207]/[193] SWITCH TO '[207]'":GOSUB360
  68. 129 GOSUB226:IFN$=""GOTO18
  69. 130 FORDE=1TO50:NEXT:GOSUB400
  70. 132 FORDE=1TO50:NEXT:GOSUB402
  71. 134 A=9:GOSUB250:GOSUB238
  72. 136 FORI=1TOLEN(N$):A$=MID$(N$,I,1)
  73. 137 A=VAL(A$):B=A-10*(A=.):GOSUB184:IFT0>.GOTO162
  74. 138 IFA=.ANDA$<>"0"THENPRINTA$;:GOSUB236:GOTO162
  75. 139 :
  76. 148 PRINTA$;:GETA$:IFA$="S"THENGOSUB400:GOTO18
  77. 150 FORJ=1TOA
  78. 152 GOSUB400:FORDE=1TO5:NEXT
  79. 154 GOSUB402:FORDE=1TO5:NEXT
  80. 158 NEXT
  81. 160 :
  82. 162 FORCE=1TO500:NEXT:NEXT:GOSUB240:POKE198,.:T=TI+1200
  83. 164 B3=(PEEK(56577)AND16):IFB3=.THENZZ=ZZ+1
  84. 166 FORDE=1TO100:NEXT
  85. 168 IFB3=16THENZZ=.
  86. 170 IFZZ=6THENPOKE668,PEEK(667):GOTO178
  87. 172 GETA$:IFA$="S"THENGOSUB400:GOTO18
  88. 174 IFTI<TGOTO164
  89. 176 GOSUB400:GOTO130
  90. 178 B3=PEEK(56577)AND16:IFB3=.GOTO98
  91. 180 IFTI>=TGOTO176
  92. 182 GOTO178
  93. 184 IFT0=.THENRETURN
  94. 186 GOSUB222:B3=-(A$="#")-(A$="*"):RO=INT(((B/3)+.67))-4*B3
  95. 188 CO=-(A$="*")-2*(A$="0")-3*(A$="#"):IFCOGOTO194
  96. 190 CO=B
  97. 192 IFCO>3THENCO=CO-3:GOTO192
  98. 194 ONCOGOSUB208,210,212
  99. 196 ONROGOSUB214,216,218,220
  100. 198 POKESI+4,17:POKESI+11,17
  101. 200 FORDE=1TO50:NEXT
  102. 202 POKESI+4,16:POKESI+11,16
  103. 204 FORDE=1TO50:NEXT
  104. 206 PRINTA$;:RETURN
  105. 208 POKESI,117:POKESI+1,77:RETURN
  106. 210 POKESI,152:POKESI+1,85:RETURN
  107. 212 POKESI,161:POKESI+1,94:RETURN
  108. 214 POKESI+7,168:POKESI+8,44:RETURN
  109. 216 POKESI+7,85:POKESI+8,49:RETURN
  110. 218 POKESI+7,150:POKESI+8,54:RETURN
  111. 220 POKESI+7,74:POKESI+8,60:RETURN
  112. 222 SI=54272:POKESI+24,15:POKESI+4,16:POKESI+11,16:POKESI+5,.:POKESI+12,.
  113. 224 POKESI+6,240:POKESI+13,240:POKESI+23,.:RETURN
  114. 226 GOSUB306:GOSUB314
  115. 228 PRINT" [206]UMBER [146][155] :";:GOSUB102:N$=I$:IFN$=""THENRETURN
  116. 230 IFLEN(N$)<7THENGOSUB20005:GOTO226
  117. 232 RETURN
  118. 234 FORDE=1TO2200:NEXT:RETURN
  119. 236 FORDE=1TO200:NEXT:RETURN
  120. 238 GOSUB312:GOSUB314:PRINT"[155]> [211] <[146] [193]BORT":PRINT"[196]IALING  [155]";:RETURN
  121. 240 NT=NT+1:PRINT"   [193]TTEMPT[155]:";NT:RETURN
  122. 242 GOSUB244:PRINTA$"[157]";:GOSUB236:DF=VAL(A$):RETURN
  123. 244 POKE198,.:WAIT 198,1:GETA$:A=ASC(A$+CHR$(.)):RETURN
  124. 248 N=N-24*(N=.)
  125. 250 FORX=ATON:POKE781,X:SYS59903:POKE217+X,PEEK(217+X)OR128:NEXT:RETURN
  126. 252 GOSUB312:POKEL,10:PRINT:PRINT">> [155]$ [196]IRECTORY   [155]@# [211]ELECT [196]EVICE # <<
  127. 254 [153]"DEF>> LIST";:M[178]36:[141]104:[139]I$[178]""[137]18
  128. 256 [139][200](I$,1)[178]"@"[167][141]350:[137]18
  129. 258 [139]I$[178]"$"[167][141]20009:[137]18
  130. 259 [139][200](I$,1)[178]"$"[167][141]20010:[137]18
  131. 260 [152]15,I$:[141]318:[141]320:[137]252
  132. 262 [151]14360,BS:[141]312:[141]314:[153]"":DI$[178]",R":B$[178]"STR$IRECTORY ASCILE"
  133. 264 [139]CH[179]7[167]B$[178]"(null)END":[139]CH[178]2[167]B$[178]"(null)ECEIVE":DI$[178]",W
  134. 266 PRINTB$" :[155]";:M=16:GOSUB104:IFI$=""GOTO18
  135. 267 IFI$="$"THENGOSUB500:GOTO262
  136. 268 N$=I$:GOSUB316:IFCH<>-(E=.)-2*(E=62)-6*(E=.ANDCH=7)THENGOSUB320:GOTO262
  137. 270 PRINT:IFCH>2GOTO298
  138. 272 PRINT"[[155][208]]RG  [[155][211]]EQ  [[155][213]]SR :[155]";
  139. 274 GOSUB242:IFA<>80ANDA<>85ANDA<>83GOTO274
  140. 276 POKE14363,1-(A=83ORA=85):N$=N$+","+A$+DI$:REM  51227
  141. 278 PRINT:PRINT"[145][[155][208]]UNTER   [[155][216]]MODEM [155]: [157]";
  142. 280 GOSUB242:XM=-(A=88):IFA<>88ANDA<>80GOTO280
  143. 282 A=11:N=.:GOSUB248:POKEL,9:PRINT:PRINTTAB(26)"[195][205][196][210] TO [193]BORT":POKEL,11
  144. 284 A$="[150]>[192][192][192][150][219][192][192][192][150]<":PRINT:PRINTA$"1"A$"2"A$"3"A$"4[146]":ONCHGOTO292
  145. 286 IFXM=.THENSYS49173:SYS49161:IFPEEK(512)=1GOTO296
  146. 288 GOSUB348:IFXM=.THENSYS61310:SYS49173:SYS49155:GOTO296
  147. 290 GOSUB20018:GOTO296:REM XMODEM DOWN
  148. 292 GOSUB348:IFXMTHENPOKE198,.:GOSUB20017:GOTO296: XMODEM UP
  149. 294 SYS49173:SYS49164:IFPEEK(512)=.THENSYS49173:SYS49158
  150. 296 GOSUB20023:CLOSE2:GOSUB20005:GOSUB234:GOTO98
  151. 298 GOSUB316:IFE>.THENRETURN
  152. 300 OPEN7,D,7,I$:FORZ=1TO9:INPUT#7,PH$(Z),CM$(Z):NEXT:INPUT#7,DF$:POKE2062,1
  153. 302 CLOSE7:IFCH<>7THENRETURN
  154. 304 GOSUB306:GOSUB360:GOSUB312:GOTO18
  155. 306 RESTORE:GOSUB312:POKEL,14:PRINT:IFPEEK(2062)>1THENRETURN:DATA "13572468
  156. 308 [135]A$:[129]X[178]1[164]8:[153]"LISTASC"[202](A$,X,1)"PRINTWAIT"[163]3)PH$(X)[163]20);
  157. 310 [153]"DEF "[200](CM$(X)[170]"                ",16)"DEF ":[130]:[142]
  158. 312 A[178]9:N[178].:[137]248
  159. 314 [151]L,8:[153]:[142]
  160. 316 [159]7,D,7,I$:[160]7
  161. 318 [132]15,E,E1$,E2$,E3$:[152]15,"I":[142]
  162. 320 [139]E[178].[176](E[178]62[175]CH[178]2)[167][142]
  163. 322 [153]:[153]">"[196](E)", "E1$", "E2$", "E3$" <":[141]20005:[141]360:[142]
  164. 324 [153]"LOADLIST1 ATNS ASCILED":C$[178]"ATNSCII
  165. 326 PRINT"[155]2 [211]CREEN "C$:PRINT"[155]3 [212]RUE "C$:PRINT"[155]4 [198]ONTS"
  166. 327 PRINT:PRINTTAB(7)"[155]?[157]";
  167. 328 GOSUB242:IFA=13GOTO18
  168. 330 IFA=36THENGOSUB20009:POKE212,.:GOTO324
  169. 332 IFDF<1ORDF>4GOTO328
  170. 333 IFDF=4THENGOSUB376:GOTO18
  171. 334 POKE681,DF-1:IFDF<>2THENPRINT:GOTO346
  172. 336 PRINT:PRINT""C$" [198]OR [195]ARRIAGE [210]ETURN
  173. 338 [153]"STR$EFAULT RIGHT$S 'DEF31' ASCOR DEF(null)PEEDSCRIPT":[153]:[153][163]7)"LIST?CMD";
  174. 340 M[178]3:[141]104:I[178][197](I$):[151]680,I[171]31[172](I[178].)
  175. 346 [151]14336,1:[141]20016:[141]20005:[141]362:[139]A$[178]"P"[167][141]20006
  176. 347 [137]324
  177. 348 [159]2,D,2,N$:[137]234
  178. 350 D[178][197]([202](I$,2)):[139]D[179]8[176]D[177]11[167]D[178]8
  179. 352 [151]2065,D:[160]15:[159]15,D,15,"I":[142]
  180. 354 [151]11040,255:[129]X[178]11041[164]11046:[151]X,195:[130]:[142]
  181. 360 [151]781,24:[158]59903:[151]214,22:[153]:[153]" ATNNY (null)EY "
  182. 362 [161]A$:[139]A$[178]""[137]362
  183. 364 [151]781,24:[158]59903:[142]
  184. 368 T$[178]"":A[178]9:[141]248:[151]L,9:[133]"(null)IME [LEFT$LEFT$(null)(null)(null)(null)] LIST";T$:[139]T$[178]""[167][142]
  185. 370 T$[178][200](T$[170]"000000",6)
  186. 372 X[178]5:[129]Y[178]1[164]3:[151]56328[170]Y,16[172][197]([202](T$,X,1))[170][197]([202](T$,X[170]1,1))
  187. 374 X[178]X[171]2:[130]:[151]56328,.:[137]18
  188. 376 I$[178]"$:FONT.*":[141]20010
  189. 378 I$[178]"FONT.":M[178]16:[151]781,1:[158]59903:[153]"(null)OAD :"I$"LIST";:[141]106
  190. 380 [139]I$[178]""[176]I$[178]"FONT."[137]18
  191. 384 OD%[178]1:[147] I$,8,1
  192. 400 [151]56577,[194](56577)[176]32:[142]: [145]HOOK
  193. 402 [151]56579,[194](56579)[176]32:[151]56577,[194](56577)[175]223:[142]: OFFHOOK
  194. 404 [141]312:[151]L,9:[153]:[153]"LIST(null)ONE   LIST(null)ULSE  "
  195. 406 [141]244:[139]A$[179][177]"T"[175]A$[179][177]"P"[137]406
  196. 408 [151]2064,A[175]31
  197. 410 [152]15,"S0:PCGTERM 1660":[152]15,"I":[148]"PCGTERM 1660",D:[142]
  198. 500 I$[178]"$:PH.*":[137]20010
  199. 2000 [143]  HALFDUP         = 679
  200. 2001 [143]  CARRIAGE RETURN = 680
  201. 2002 [143]  SPEEDSCRIPT     = 681
  202. 2003 [143]  WEDGE ENABLE    = 685
  203. 2004 [143]  WEDGE ESCAPE    = 686
  204. 2005 [143]  BAUD TOGGLE     = 691
  205. 2006 [143]  BUFFER ON/OFF   = 692
  206. 2007 [143]  FULL/HALF DUPLX = 693
  207. 2008 [143] CHECK1 PUNTER VARIABLE ALSO TERMINAL PREMATURE EXIT FOR SOME CALLERS
  208. 2009 [143] AT 14354. MUST = 0 FROM BASIC
  209. 2010 :
  210. 3000 [143]  DRIVE NUMBER    = 2065
  211. 3001 [143]  PUNTER 1200 WDG = 49179
  212. 3002 [143] CHECK1 PUNTER VARIABLE ALSO TERMINAL PREMATURE EXIT FOR SOME CALLERS
  213. 20005 [158]50910:[142]:  B[145]G
  214. 20006 [158]51435:[142]:  SCREEN DUMP
  215. 20009 [158]51894:[142]:  DIREC[164]RY
  216. 20010 [159]1,D,0,I$:[158]51923:[142]:  SPEC[139]IC DIREC[164]RY
  217. 20011 [158]52259:[142]:  FLIX
  218. 20015 [158]52878:[142]:  PRETERM
  219. 20016 [158]52985:[142]:  FILE[135]ER
  220. 20017 [158]52994:[142]:  XMODEM UP[147]
  221. 20018 [158]53004:[142]:  XMODEM DOWN[147]
  222. 20019 [158]53021:[142]:  [164]EDIT
  223. 20020 [158]53027:[142]:  [164]CAPTURE
  224. 20021 [158]53033:[142]:  [164]MENU
  225. 20022 [158]53039:[142]:  [164]DOODLER
  226. 20023 [139][194](512)[178].[167][158]53045:[142]:  SMILER
  227. 20024 [158]53051:[142]:  FROWN
  228. 20027 [158]53057:[142]:  [164]KOALASHO
  229.